home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / D-G / Dorothy'sPascalApp.cpt / Myofilaments.Pas < prev   
Encoding:
Pascal/Delphi Source File  |  1988-04-17  |  1.6 KB  |  93 lines  |  [TEXT/TPAS]
  1. program MuscleMyofilaments;
  2.     {U$-}
  3.     uses
  4.         MemTypes,QuickDraw,OSIntF,ToolIntf;
  5.    
  6.  var
  7.   Angle:integer;
  8.   Arc : rect;
  9.   Oval : rect;
  10.   NumbA : integer;
  11.   Count : integer;
  12.   myPort:GrafPort;
  13.   r:Rect;
  14.  
  15. begin
  16.  InitGraf(@thePort);
  17.  OpenPort(@myPort);
  18.  FillRect(myPort.portBits.Bounds,white);
  19.  PenPat(black);
  20.  PenSize(4,5);
  21.  SetRect(r,2,2,508,338);
  22.  FrameRect(r);
  23.  
  24.  PenSize (1,1);
  25.  MoveTo(75, 119);{move cursor to these coordinates}
  26.  LineTo(360,119);{draw line from 75H to 360H}
  27.  MoveTo(75, 200);{move cursor to these coordinates V 200}
  28.  LineTo(362,200);{draw line from 75H to 360H and 200V}
  29.  
  30.  
  31.  {Draw Z lines}
  32.  
  33.  PenPat(Black);
  34.  PenSize(2,2);
  35.  SetRect(Arc,90,119,190,200);
  36.  FrameArc(Arc,0,180);
  37.      for count := 1 to 1 do
  38.         begin
  39.              OffSetRect(Arc, 160,0);
  40.              FrameArc(Arc,0,180);
  41.         end;
  42.  PenSize(5,5);
  43.  SetRect(Arc,312,119,412,200);
  44.  FrameArc(Arc, 0,180);
  45.   {Draw Thick Filaments}
  46.   PenSize(3,3);
  47.   MoveTo(190,125);
  48.   LineTo(300,125);
  49.   MoveTo(200,140);
  50.   LineTo(310,140);
  51.   MoveTo(210,155);
  52.   LineTo(320,155);
  53.   MoveTo(200,170);
  54.   LineTo(310,170);
  55.   MoveTo(190,185);
  56.   LineTo(300,185); 
  57.   {Draw Thin Filaments}
  58.   PenSize(1,1);
  59.   MoveTo(100,133);
  60.   LineTo(240,133);
  61.     
  62.   MoveTo(110,148);
  63.   LineTo(250,148);
  64.   
  65.   MoveTo(120,163);
  66.   LIneTo(260,163);
  67.   
  68.   MoveTo(110,178);
  69.   LineTo(250,178);
  70.    
  71.   MoveTo(100,193);
  72.   LineTo(240,193);
  73.   
  74.   MoveTo(270,133);
  75.   LineTo(390,133); 
  76.    
  77.   MoveTo(280,148);
  78.   LineTo(400,148);
  79.   
  80.   MoveTo(290,163);
  81.   LIneTo(410,163);
  82.   
  83.   MoveTo(280,178);
  84.   LineTo(400,178);
  85.    
  86.   MoveTo(270,193);
  87.   LineTo(390,193);        
  88.  PenPat(Dkgray);
  89.  SetRect(Oval, 35,119,135,201);
  90.  PaintOval(Oval);
  91.  ReadLn
  92.  
  93. end.